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SRMDEF .MDL = system definitions for System Reference Manual 
Version: *v04-000' 


PRR RRASASALALELSAEALASEAL ELSES ASAE SEES ESE EERE ERE ERR CREE SSSR CESSES ESE a SY 


Settle: (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS” RESERVED. 


* 
6 

a 

® 

‘ 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPI ® 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biCEn SE AND WITH T * 
INCLUSION OF THE ABOV gt thel NOTICE. THIS §$ OR OT « 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHER vise OMADE AVAILABLE TO A * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERE ® 
TRANSFERRED. * 
* 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ® 
® 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
- 
* 
® 


#senseeeeeeeee eee eeeeaeene 


{ 

{ 

{ 

{ 

¢ 

{ PARRASAASALELALLLALASLELALAESEA SER ASE SEES ERASE EASE EEE SERRA RASA SARA LEER REECE OSS 
ag 

; FACILITY: VAX/VMS System Macro Libraries 
} ABSTRACT: 
{ 

{ 

{ 

{ 

{ 

{ 

{ 

{-- 

{ 

| 

{ 

{ 


This file contains the SDL source for the System Reference 
Manual (SRM) structure definitions. 


ENVIRONMENT: 
n/a 


AUTHOR: The VMS Group CREATION DATE: 11-Aug-1976 
MODIFICATION HISTORY: 
3-003 060303 Debess Grabaz 27-Feb-1984 
Change Rath CLASS_SO and DSc&K CLASS_UBSO to 
DS tsar $58 and DSC$K_ CLASS _0BSB (ECO 9.4). 
3-002 060302 Debess Gra | 2-0ck~1983 
Add pacsK_ CLASS_SO te pst sk TELASS UB 
3-001 ACGO “Andrew C. Goldstein 0+ bec -1982 
eee f git attribute +y extraneous field names 
2-010 M201 Farokh Morshed ~DEC-1981 


Add DSC$K_DTYPE_VT. 


SRI 


en 
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2-009 
2-008 
2-007 
2-006 
005 - SBL 

-004 = SBL 
2-003 = SBL 
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SBL2009 Steven B. Lionel 26-Aug-1981 
Steven B. Lionel 20-Aug-1981 
i sing 0 si AoE 

s8t aa i vgn Be | igre! 14-Jan-1981 
na. ; 


, even B. Li pel 8-Sept-1980 
". Update to Rev. 6 (3 =Oct-1979). SBL 31-Dec-1979 


004 = Make DSC$B_SCALE signed. SBL 10-Au ust)? 9 
003 - Add SRM$K Syabols for floating faults _ SBL 1899 July=-1979 
s~poe = $BL2002 


re] 
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VAX Procedure Catling symbols. 

These symyols are taken fr ngpond ts C of the VAX-11 

Sy yon eference Manual which is under ECO control. No 
additions to this file cannot be made without first getting 
formal ECO approval to Appendix C of the SRM. 

No symbols should be removed or changed without careful 
evaluation of the effects of such changes on existing software. 
In case of qiseeroenens. SRM Appendix ( takes precedence 

over this file. 

These symbols are taken from Appendix C Rev 9.0 


module SDSCDEF; 


/* Define Procedure argument data types 

/* €.9 ARGUMENT DATA TYPES 

/* The following encoding is used for atomic data elements: 
/* Mnemonic Code Description 


eee ee eee eee eeeeeeeeeane 


POQQAA QO QAO AAA AO OOOO 


constant DTYPE_2Z equals 0 prefix DSC tag SK; /* Unspecified. The calling program has 
/* specified no data type * the called 
/* procedure should assume the argument is of 
/* the correct type. 

constant DTYPE_V equals 1 prefix DSC tag $k; /* Bit. An aligned bit string. 

constant DTYPE_BU equals 2 prefix DSC tag SK; /* Byte Logical. 8-bit unsigned quantity. 

constant DTYPE_WuU equals 3 prefix DSC tag SK; /* Word Logical. 16-bit unsigned quantity. 


constant DTYPE_LU equals 4 prefix DSC tag SK; as Longword Logical. 32-bit unsigned 


> 
+ 


> 


| 
| 
¢ 


* quantity. E 
constant DTYPE_QU equals 5 prefix DSC tag SK; /* Sustwere Logical. 64-bit unsigned 
/* quantity. 
constant DTYPE_OU equals 25 prefix DSC tag $K; /* Octaword Logical. 128-bit unsigned 
/* quantity. 


constani DTYPE_B equals 6 prefix DSC tag &K; Byte Integer. 8-bit signed 2's-complement 


integer. 
constant DTYPE_wW equals 7 prefix DSC tag SK; /* Word Integer. 16-bit signed 2's-complement 
/* integer. 
constant DTYPE_L equals 8 prefix DSC tag SK; /t Lynpere Integer. 32-bit signed 
/* 2's=complement integer. 


constant DTYPE_Q equals 9 prefix DSC tag SK; /* Quadword Integer. 64-bit signed 
/* 2*s-complement integer. 


SRMDEF .SDL;1 

constant DTYPE_0O 
constant DTYPE_F 
constant DTYPE_D 
constant DTYPE_G 
constant DTYPE_H 


constant DTYPE_FC 


constant DTYPE_DC 


constant DTYPE_GC 


constant DTYPE_HC 


constant DTYPE_CIT 


constant DTYPE_VvU 


/* The following strin 
/* descriptor. Th 


constant DTYPE_T 


e date 
equals 14 prefix DSC tag $k; 


equals 
equals 
equals 
equals 
equals 


equals 


equals 


equals 


equals 


equals 


29 


30 


31 


prefix 
prefix 
prefix 
prefix 
prefix 


prefix 


prefix 


prefix 


prefix 


prefix 


DSC 


DSC 


DSC 


DSC 


DSC 


DSC 


DSC 


DSC 


DSC 


DSC 
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tag SK; 
tag SK; 
tag SK; 
tag SK; 
tag SK; 


tag SK; 


tag $K; 


tag $K; 


tag SK; 


tag SK; 


equals 34 prefix DSC tag SK; 


/t 
/t 
/t 


Bytevere Integer. 128-bit signed 
s-complement integer. 


F floating. 32-bit F_floating quantity representing 
a single-precision number. 


D_floating. oe Be D_floating quantity representing 
a double-precision number. 


G_floating. 64-bit G_floating quantity representing 
a double-precision number. 


SFteat ing. 128-bit H_floating quantity representing 
a@ quadruple-precision number. 


F_floating complex. Ordered pair of F_floating 
quantities representing a single-precision complex 
number. The lower addressed quantity is the 

real part, the higher addressed quantity is the 
imaginary part. 


D_ floating complex. Ordered pair of D_floating 
quantities representing a double-precision complex 
number. the lower addressed quantity is the 

real part, the higher addressed quantity is the 
imaginary part. 


G_floating complex. Ordered pair of G_floating 
quantities representing a double-precTsion complex 
number. The lower addressed quantity is th 

real part, the higher addressed quantity is the 
imaginary part. 


H_floating complex. Ordered pair of H_floating 
quantities peprosent ing a quadruple-precision complex 
number. The lower addressed quantity is the 

real part, the higher addressed quantity is the 
imaginary part. 


COBOL Intermediate Temporary. y tged ing point 
datum with an 18 digit normalized decimal 
fraction and a 2 digit decimal exponent. The 
fraction is reprocessed as a packed decimal 
nyaber. The exponent is represented as a 
16-bit 2's complement integer. A detailed 
description of this data fype can be found in 
Section 7.4 of SRM Appendix C. 


Bit Unaligned. 


types are ordinarily described by a string 
type codes below occur in those descriptors: 


Character-coded text. A single 8-bit character 
(atom § gete type? or a sequence of 0 to 
2e*16-1 B-bit characters (string data type). 


" 
" 
> 


AAA AAAAAAPAAAAAAADAA AAA AAA AAAAAAAAAA AAA AAA AAO 


SRMDEF .SDL;1 16-SEP-1984 16:46:48.28 Page 5 


constant DTYPE_VT equals 37 prefix DSC tag $K; /* Varying Character-coded Text Data Type. 
constant DTYPE_NU equals 15 prefix DSC tag SK; /* Numeric string, unsigned. 

constant DTYPE_NL equals 16 prefix DSC tag SK; /* Numeric string, left separate sign. 
constant DTYPE_NLO equals 17 prefix DSC tag $K; /* Numeric string, left overpunched sign. 
constant DTYPE_NR equals 18 prefix DSC tag SK; /* Numeric string, right separate sign. 
constant DTYPE_NRO equals 19 prefix DSC tag SK; /* Numeric string, right overpunched sign. 
constant DTYPE_NZ equals 20 prefix DSC tag SK; /* Numeric string, zoned sign. 
constant DTYPE_P equals 21 prefix DSC tag $K; /* Packed decimal string. 

/* The following encodings are used for miscellaneous data types: 

constant DTYPE_7Z1 equals 22 prefix DSC tag $K; /* Sequence of instructions. 
constant DTYPE_ZEM equals 23 prefix DSC tag $K; /* Procedure entry mask. 


constant DTYPE_DSC equals 24 prefix DSC tag $K; /* Descriptor. This data type allows a descriptor 
/* to be an per data type, thereby allowing 
/* the use of levels of descriptors. 


constant DTYPE_BPV equals 32 prefix DSC tag $K; /* Bound Procedure Value. A two longword entity 
/* in which the first longword contains the address 
/* of a procedure entry mask and the second longword 
/* contains the environment value. The environmeent 
/* value is Getermined in a language specific 
/* fashion when the ortgiaal Bound Procedure Value 
/* is generated. Veen he bound procedure is 
/* invoked, the call ng gregren loads the second 
/* Longword into R1. This data type can be passed 
/* using the immediate value mechanism when the 
/* environment value is not needed. In this case 
/* the argument List entry contains the address of 
/* the procedure entry mask and the second Longword 
/* is omitted. 


constant DTYPE_BLV equals 33 prefix DSC tag $K; /* Bound Label value. 
constani DTYPE_ADT equals 35 prefix DSC tag $K; /* Absolute Date and Time 
/* K DTYPE_??7,36 /* DTYPE code 36 is reserved for future definition 
/* The following types are used by the VAX/VMS Debug Facility: \FOR 
Oneht fo Rx bug 


/* INTERNAL DOC ATION ONLY. r details, see VAX/VMS De Facility 
/* Documentation. 


| 
f 
| 
| 
| 
! 
| 
{ 
| 


constant DTYPE_CAD equals 178 prefix DSC tag $K; /* Address calculation command 
constant DIYPE_ENT equals 179 prefix DSC tag $K; /* Entry global definition 
constant DTYPE_GBL equals 130 prefix DSC tag $K; /* Global syabol definition 
constant DTYPE_EPT equals 1 prefix DSC tag $K; /* Entry point to routine. 
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constant DTYPE_R11 equals 182 prefix DSC tag $k; ‘s HS number relative to R11 correlation 
able. 
constant DTYPE_FLD equals 183 prefix DSC tag $K; /* BLISS FIELD name. 
constant DTYPE_PCT equals 184 prefix DSC tag $K; /* PSECT information. 
constant DTYPE_DPC equals 185 prefix DSC tag $K; /* PC correlation table for FORTRAN IV+ 
constant DTYPE_LBL equals 186 prefix DSC tag $K; /* LITERAL or LABEL 
constant DTYPE_SLB equals 187 prefix DSC tag $K; /* Label in non-assembly Language modules 
constant DTYPE_MOD equals 188 prefix DSC tag $K; /* Beginning of new module 
constant DTYPE_EOM equals 189 prefix DSC tag $K; /* End of module t 
constant DTYPE_RTN equals 190 prefix DSC tag $K; /* Beginning of new routine ; 
constant DTYPE_EOR equals 191 prefix DSC tag $K; /* End of routine ? 
/* The following type codes are RESERVED for future use: ? 
{ 
/* 37-177 RESERVED to DEC { 
/* 192-255 RESERVED to CSS and customers { 
/* €.10 ARGUMENT DESCRIPTORS ; 
/* A uniform descriptor mechanism is defined for use by all procedures { 
/* which conform to this standard. Descriptors are uniformly typed and { 
/* the mechanism is extensible. As new varieties of descriptor become { 
/* necessary, they will be added to this catalogue. ? 
. Note: { 
® 
/* ALL fields represent unsigned quantities unless explicitly stated c 
/* otherwise. ¢ 
{ 
/* €.10.1 Descriptor Prototype { 
/* Each class of descriptor consists of at least 2 longwords in the { 
/* following format: ? 
/t pececeen teowecne Fowwwwoonnenonne 4 
/* | CLASS | DTYPE | LENGTH {| Descriptor 
/* toweeeee bocce ene pewenw ere occ on~ + 
/t H POINTER H 
/t pore neers Hee ee mer eee ene eee eee 4 
/* DSCSy LENGTH A one-word field specific to the descriptor 
a <0,1570> class/* typically a 16-bit (unsigned) length. 
/* DS CSB DT YPE A one-byte atomic data type code (see C.9) 
ye <0,25716> 
/* DSC$B_CLASS A one-byte descriptor class code (see below) 
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<0,31:24> 


/t 
/* 
/* DS CEA POINTER A longword pointing to the first byte of the 
* <1,3170> data element described. 

/* Note that the descriptor can be placed in a pair of registers with a 
/* MOVQ instruction and then the length and address used directly. This 
/* gives a word length, so the +n and type are placed as bytes in the 
/* rest of that longword. Class is unspecified and hence no more than 
/* the above information can be assumed. 


/* Define the descriptor class codes/* 


constant CLASS_2Z equals 9 prefix DSC tag $K; /* Unspecified 

constant CLASS_S equals prefix DSC tag $k; /* Scalar, String Descriptor 

constant CLASS_D equals ¢ prefix DSC tag SK; /* Dynamic String Descriptor 

constant CLASS_V equals prefix DSC tag $K; /* Reserved for use by Digital 

constant CLASS_A equals 4 prefix DSC tag $k; /* Array Descriptor 

constant CLASS_P equals 5 prefix DSC tag $K; /* Procedure Descriptor 

constant CLASS_PI equals 8 prefix DSC tag $K; /* Procedure Incarnation Descriptor 
constant CLASS_J equals prefix DSC tag SK; /* Reserved for use by Digital 

constant CLASS_JI equals 8 prefix DSC tag $K; /* Obsolete 

constant CLASS_SD equals prefix DSC tag $k; /* Decimal Scalar String Descriptor 
constant CLASS_NCA equals 10 prefix OSC tag $K; /* Non-contiguous Array Descriptor 
constant CLASS_VS equals 11 prefix DSC tag $K; /* Varying String Descriptor 

constant CLASS_VSA equals \¢ prefix DSC tag $K; /* Varying String Array Descriptor 
constant CLASS_UBS equals 15 prefix OSC tag $K; /* Unaligned Bit String Descriptor 
constant CLASS_UBA equals 14 prefix DSC tag SK; /* Unaligned Bit Array Descriptor 

constant CLASS_SB equals 15 prefix DSC tag $K; /* String with Bounds Descriptor 

onstan a equals prefix tag $K; * Unaligne t String with Bounds Descriptor 
constant CLASS_UBSB ls 16 fix DSC $K /* Unaligned Bit Stri ith Bounds D i 


/* The following descriptor class is FOR INTERNAL USE ONLY by the VAX 
/* Common Run-Time Library and Debugger. This descriptor is not passed 
/* between separately compiled modules. for further information, see 
/* VAX-11 BASIC poser tet ion of Generated Code, Software Document 

/* Retrieval Number JBS-79-004. 


constant CLASS_BFA equals 191 prefix DSC tag $K; /* BASIC File Array Descriptor 

/* Descriptor classes 17-190 are RESERVED to DEC. Classes 
/* 192 through 255 are RESERVED to CSS and customers. 

/* Array Descriptor (DSCS$K_CLASS_A) 

/* An array descriptor consists of 3 contiguous blocks. The first block 

/* contains the descriptor prototype information and is part of every 

/* array descriptor. The second and third blocks are optional. If the 

/* third block is present then so is the second. 


/* <A complete array descriptor has the form: 


/* Ne es 


/t i «4 ! DTYPE ; LENGTH H :Descriptor 
POINTER 


{ 
{ 
{ 
| 
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/* i en 


/* ‘| DIMCT | AFLAGS‘DIGITS | SCALE } 


/* Ce ee 


/* ' ARSIZE ' 


/* goer oeae Semen nena nowreanrancce woecenena + 


/* ' AO i 


/* oes 


/* i m1 : 
/* momo ecose mere mee soe ee nero see eee w=$ 
/* H eee H 
/* deo woeee seem eoee SS ese een ae nee wee + 


/* i M(n=1) i 


/* gerne eee see eee ees seme eee se ewe vrerecec 4+ 


/* H Mn ' 


/t tome wren ne sommes Seeceeeeoeeeeoeaooen + 


/* i 1 i 


/* i eee 


/* teow eer ewe roe e oe eeeeeeoesoeeeseos + 


/* i Ln i 


/* ders e eee eee wee ee eee wee ree weer meno} 


aggregate DSCDEF structure prefix DSC$ origin "LENGTH"; 
HANDLE address; 


BYTEOFF Longword unsigned; 
LOGUNIT Longword unsigned; 


End of BASIC File arrey specific descriptor fields. 
fields are common to all array descriptors. 
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Block 1 = Prototype 


Block 2 - Multipliers 


Block 3 = Bounds 


/*Define descriptor fields: 


/t 
/t 


\The following three fields are gnly valid for descriptor 
class DSC$K_CLASS_BFA (see above). 


The address of a vector of data concerning the 
urrent state of processing of the array. This 
$s set to zero by the creator of the 

descriptor, and maintained thereafter by the 

BASIC file array processing functions. 


Byte offset in the file of element 0,0,...,0 
of the array. s need not be within the 
array, or even within the file if the array 
does not have zero origin. 


The Logical unit number (BASIC channel) on 
which the file containing the array has 

been opened. This is se by the creator of the 
descriptor before first referencing the array. 


The remaining 
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“LENGTH'’ word unsigned; /* A one-word field specifiec to the descriptor class; 
/* typically a 16-bit (unsigned) Length. 


end DSCDEF; 


aggregate DSCDEF1 structure prefix DSC$; 

MAXSTRLEN word unsigned; /* Max length of the BODY field of the varying string 
/* in bytes in the range 0 to 2**16-1. 
/* (Classes VS, VSA) 


DTYPE byte unsigned; /* A one-byte atomic data type code (see C.9) 

/* Syasots used in this filed have form: DSCSK_DTYPE_t 
where t is the data type mnemonic from above 
/* and agrees with methodology manual. 


CLASS byte unsigned; /* A one-byte gener iprer glege code (see above). 
/* Symbols used in this field have form: DSCS$K_CLASS_f 
/* where f is the or gument form mnemonic from above 
/* and agrees with the methodology manual. 


POINTER address; /* A longword pointing to the first byte of the data 
/* element described. 


end DSCDEF1; 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


aggregate DSCDEF2 structure prefix DSC$; 
FILL_3 byte dimension 4 fill prefix DSCDEF tag $$; 
BASE address; /* Base of address relative to which the signed relative 
/* bit position, POS, is used to locate the bit string. ea 
/* (Classes UBS, UBA and UBSB) 
constant Z7_BLN equals . prefix DSC$ tag K; /* Block length in bytes for Z class desc. 
constant Z7_BLN equals . prefix DSC$ tag C; /* Block Length in bytes for Z class desc. 
constant S_BLN equals . prefix DSC$ tag K; /* Block Length in bytes for S class descr. 
constant S_ equals . prefix DSC$ tag C; /* Block length in bytes for S class descr. 
constant D_BLN equals . prefix DSC$ tag K; /* Block Length in bytes for D class descr. 
constant D_BLN equals . prefix DSC$ tag C; /* Block Length in bytes for D class descr. 
constant P_BLN equals . prefix DSC$ tag K; /* Block length in bytes for P class descr. 
constant P_BLN equals . prefix pete tag C; /* Block Length in bytes for P class descr. 
constant J_BLN equals . prefix DSC$ tag K; /* Block length in bytes for J class descr. 
constant J BLN equals . prefix DSC$ tag C; /* Block Length in bytes for J class descr. 
constant VS_BLN equals . prefix DSC$ tag K; /* Block length in bytes for VS class descr. 
constant VS_BLN equals . prefix DSC$ tag C; /* Block length in bytes for VS class descr. 


{te 
‘e End of common definitions for ail descriptors. 


/t+ 
/* Unaligned bit string definitions. 


SRMDEF .SDL;1 
/*- 


end DSCDEF 2; 


aggregate DSCDEF3 structur 
FILL_4 byte dimension 
POS Tongword unsigned; 


: prefix ds¢s; 
fill prefix DSCDEF tag $$; 


constant UBS_BLN equals . prefix DSC$ ta 
constant UBS_BLN equals . prefix DSC$ ta 
{e+ 

oS Varying type descriptor definitions 


end DSCDEF3; 


aggregate DSCDEF4 structure 
FILL_5 byte dimension 8 


prefi 
fill 
MAXLEN word unsigned; 


x DSC$; 
prefix DSCDEF tag $$; 
FILL_1 word fil. prefix DSCDEF tag $$; 


/t+ 
“ Array Descriptor definitions 


end DSCDEF4; 


aggregate DSCDEFS structur 
FILL_6 byte dimension 
SCALE byte; 


e prefix DSC$; 
8 fill prefix DSCDEF tag $$; 


DIGITS byte unsigned; 


AFLAGS_OVERLAY union fill; 
AFCAGS byte unsigned; 


AFLAGS BITS structure fill; 
FICL_2 bitfield Length 4 fill prefix DSCDEF 
FL_REDIM bitfield; 
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Signed lLongword relative bit position 

with respect 9 BASE of the first bit 

of unal gned bit strin 

WARNING!' Do not use this symbol to reference 
class UBA dgscr iptors: The DSC$L_POS in that 
descriptor is af a variable locatTon after the 
bounds and mult ge rer blocks. 

Block Length in bytes for UBS class descr. 
Block Length in bytes for UBS class descr. 


An unsigned word specifying the 
maximum Length of the data item 
(i.e., the space allocated) 
reserved word 


$igned poyer of ten multiplier to convert the 
nternal form to externas form. For example, 
if internal number is 125 and scale is +1 

then the represented external number is 1230. 


If non-zero, unsigned number of decimal 
digits in the external representation. If 
zero, the number of digits can be computed 
based on DSC$W_LENGTH. 


Array flag bits. 


tag $$;/* reserved to Digital 
/* If set, the array can be redimensioned; 


SRMDEF .SDL;1 
/* j 
/* 
/* 
/* 
FL_COLUMN bitfield; o 
* 
/t 
FL_COEFF bitfield; i 
® 
FL_BOUNDS bitfield; Ge 
end AFLAGS_BITS; 
end AFLAGS_OVERLAY; 
DIMCT byte” unsigned; /* 
constant SD_BLN equals . prefix DSC$ tag K; /* 
constant SD-BLN equals . prefix DSC$ tag C; /* 
ARSIZE longword unsigned; fe 
* 
AO address; /* 
/* 
/t 
/* 
end DSCDEF5; 
aggre ate DSCDEF6 structure prefix DSC$; 
FAC 7 byte dimension 16 fill prefix DSCDEF tag $$; 
Longword unsigned; os 
* 


/* The oscaK e two fields have meaning only if the array 
/* class DSCS$K_CLASS_NCA (Non-contiguous array). 


$1 longword unsigned; as 
/t 
$2 longword unsigned; /* 
end DSCDEF6; 
aggregate DSCDEF7 stru ons prefix DSC$; 
Ft 8 byte dimension 20 fill pretix DSCDEF tag $$; 
Sngword unsigned; /* 
M2 longword unsigned; /t 
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, DSCSA_AO, bsCoL Mi, pScSt a4 P 
pseéi_u be c éd. The rEdlbons oned 
array “canngt Bis y he size allocated to 
the oerey (i.e. DSCSL_ARSIZE) . 

he elements Of the ar oy or 
stored by columns (FORTRAN)> Ot erwise 
the elements are stored by rows. 


the multiplicative coefficients in 


If set 
é are present. 


Block 


f set, the bounds information in Block 3 
Ss present. 


Number of dimensions 


Block Length in bytes for SD class descr. 
Block Length in bytes for SD class descr. 


Total size of array (in Oye es TYP unlegs OTveE is 
EQUL DSCSK_DTYPE_V or DSCSK 


Address of element A(0,0,...,0). This 
need not be within the actual Bat it 
is the same as DSCSA_POINTER for O-origin 


arrays. 


Signed bit offset of element A(0,0,...0) with 
respect to BASE. (Class UBA) 


is of 


Stride of the first dimension, i.e. the 
difference between the addresses of 
successive elements of the first dimension. 


Stride of the second dimension. 


Addressing coefficient M1 = Ul-L 
Addressing coefficient M2 = U2-L 
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Jee 
/* Procedure Incarnation descripto 


r (DS 
A Label Incarnation descriptor (DSC$K 


end DSCDEF7; 
aggregate DSCDEF8 structure prefi 
ak 4 (RK 8 itt 


DSC$; 
byte dimension efix DSCDEF tag $$; 
FRAME address; /* Address of frame 


constant PI_BLN equals . prefix pate tag K; /* Block length in bytes for PI class descr. 
constant PI_BLN equals . prefix DSC$ tag C; /* Block length in bytes for PI class descr. 
constant JI_BLN equals . prefix DSC$ tag K; /* block length in bytes for JI class descr. 
constant JI_BLN equals . prefix DSC$ tag C; /* block length in bytes for JI class descr. 

/et 

A String with Bounds descriptor (DSC$K_CLASS_SB). 

end DSCDEF8; 

aggregate DSCDEF9 structure prefix DSC$; 
FILL_10 byte dimension 8 fill prefix DSCDEF tag $$; 
SB_LT longword; /* Signed lower bound of first dimension 
$B_U1 Longword; /* Signed upper bound of first dimension 


{tt 
Md Unaligned Bit String with Bounds descriptor (DSCS$K_CLASS_UBSB). 


end DSCDEF9; 


aggregate DSCDEF10 structure prefix DSC$; 
FILL_11 byte dimension 12 fill prefix DSCDEF tag $$; 
UBSB_L1 Longword; 


/* ned lower bound of first dimension 
UBSB_U1 Longword; /* 


ned upper bound of first dimension 


end DSCDEF10; 
end_module S$DSCDEF; 
module $SRMDEF; 


/tt 
a Define SRM Hardware symbols 
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constant INT_OVF_T equals prefix SRM tag $K; /* Integer gyer {low trap code 
constant INT_DIV_T equals prefix SRM tag $K; /* pnteger divide by zero trap code 
constant FLT_OVF_T equals prefix SRM tag $K; /* Floating overflow frap code 
constant FLT_DIV_T equals 4 prefix SRM tag $K; /* Floating/decimal Divide by zero trap code 
constant FLT_UND_T equals 5 prefix SRM tag $K; /* progting Underflow trap code 
constant DEC_OVF_T equals § prefix SRM tag $K; /* Decimal string overflow trap code 
constant SUB_RNG_T equals prefix SRM tag $K; /* Subscript range trap 
constant FLT_OVF_F equals 3 prefix SRM tag $K; /* Floating Overflow fault code 
constant FLT_DIV_F equals prefix SRM tag $K; /* Floating Divide by zero fault code 
constant FLT_UND_F equals 10 prefix SRM tag $K; /* Floating Underflow fault code 
end_module SSRMDEF ; 
module SPSWDEF; 
{e+ 
c Define PSW bits (STARDEF.MDL has PSL bits) 
ae 
aggregate PSWDEF union prefix PSWS$; 
PSWOEF BITS structure fill; 
C Bitfield mask; /* carr 
V bitfield mask; /* overflow 
Z bitfield mask; /* zero end 
N bitfield mask; /* negative 
TBIT bitfield mask; /* trace trap enable end 
IV bitfield mask; /* integer overflow enable 
FU bitfield mask; /* floating underflow enable 
DV bitfield mask; /* decimal overflow enable 
PSWDEF _BITS; 


end 
end PSWDEF; 
end_module SPSWDEF ; 
module S$SFDEF; 


{te 
a Define stack frame offsets as a separate structure SF$ 
tio 


aggregate SFDEF structure prefix SF$; 
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HANDLER address 
PN SAVE OVERLAY union aa 


E-P 
ve 

Vv 

Z 

N 

T 

I 

F 

D 
end SA 


12 i FEF tag $$; 
& ld Length 2; 


end S$ 
end SAVE mASR 0 OVERLAY 
SAVE_AP Tongword talineds 
SAVE_FP Longword unsigned; 
SAVE-PC lLongword unsigned; 
SAVE_REGS Longword uns igned; 


end_module $SFDEF; 


Adr. of handler or 0 if no handler 
saved PSwW 


negative 

trace trap enable 

nteger overflow enable 
floating underflow enable 
decimal overflow enable 


saved register mask plus flags 
fe ister save mask 


1 if CALLS 
SP offset 


saved AP 
saved FP 
saved PC 
first register saved is saved here 
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G 
N 


IGIT 
ONFI 


043 CONF 


